10 VZ=2:VE$(1)="N":VE$(2)="NW"
50000 REM ****************************
50010 REM *     BEFEHLSEINGABE       *
50020 REM *     BEFEHLSZERLEGUNG     *
50030 REM *     BEFEHLSCODIERUNG     *
50040 REM ****************************
50050 IFUD=1THEN50220
50060 POKE198,0:BE$="":PRINT"WAS NUN ? ";
50070 POKE204,0
50080 GETX$:IFX$=""THEN50080
50090 IFPEEK(203)=1ORLEN(BE$)>68THENPRINT" ":POKE204,1:GOTO50140
50100 I=ASC(X$):IFI<65ORI>90THENIFI<>32ANDI<>20ANDI<>34THEN50080
50110 IFI=20ANDBE$=""THEN50080
50120 IFI=20THENPOKE204,1:PRINT"[157]  [157][157]";:BE$=LEFT$(BE$,LEN(BE$)-1):GOTO50070
50130 PRINTX$;:BE$=BE$+X$:GOTO50080
50140 FORI=1TO10:BE$(I)="":NEXT:WZ=1:FORI=1TOLEN(BE$)
50150 :IFMID$(BE$,I,1)=" "THENGOSUB50190:GOTO50180
50160 :IFWZ>10THENPRINT"EINGABE IST ZU LANG !":I=LEN(BE$)+1:GOTO50180
50170 :BE$(WZ)=BE$(WZ)+MID$(BE$,I,1)
50180 NEXTI:GOTO50220
50190 IC=0:FORI1=1TOAZ:IFBE$(WZ)=AU$(I1)THENIC=1
50200 NEXTI1:IFIC=0THENWZ=WZ+1:RETURN
50210 BE$(WZ)="":RETURN
50220 IFUD=1THENUD=0:GOTO50240
50230 WZ=1:VE=0:OB=0:PE=0
50240 IC=0:G1=0:G2=0
50250 FORI=1TOVZ:IFBE$(WZ)=VE$(I)THENVE=I:IC=1
50251 IFLEN(BE$(WZ))<3THEN50260
50255 IFBE$(WZ)=LEFT$(VE$(I),LEN(BE$(WZ)))THENVE=I-VAL(RIGHT$(VE$(I),1)):IC=1
50260 NEXTI:IFIC=1THEN50350
50270 FORI=1TOGZ:IFBE$(WZ)<>GE$(I)THEN50300
50280 IC=1:IFG1=0THENG1=I
50290 G2=I:IFG2=G1THENG2=0
50300 NEXTI:IFIC=1THEN50350
50310 FORI=1TOOZ:IFBE$(WZ)=OB$(I)THENOB=I:IC=1
50320 NEXTI:IFIC=1THEN50350
50330 FORI=1TOPZ:IFBE$(WZ)=PE$(I)THENPE=I:IC=1
50340 NEXTI
50350 IFBE$(WZ)="UND"THENUD=1:IC=1
50360 IFIC=0THENPRINT"ICH KENNE ";BE$(WZ);" NICHT !":RETURN
50370 WZ=WZ+1:IFWZ>10ORBE$(WZ)=""ORUD=1THENRETURN
50380 IC=0:GOTO50250